import "mod_video"
import "mod_map"
import "mod_ttf"
import "mod_say"
import "mod_key"
import "mod_text"

Process main()
Private
    int fontid1=0, fontid2=0;

Begin
	set_mode(640, 480, 16, MODE_WINDOW);
	fontid1=ttf_loadaa("DejaVuSans-Bold.ttf",20,16,RGB(255,255,0),RGB(50,50,50));
	save_fnt(fontid1, "font_white.fnt");
	write(fontid1, 320, 240, 4, "Typography Test!");
	fontid2=ttf_loadaa("DejaVuSans-Bold.ttf",20,16,RGB(255,0,0),RGB(50,50,50));
        save_fnt(fontid2, "font_red.fnt");
	write(fontid2, 320, 300, 4, "Red typography Test!");
	while(scan_code == 0)
		FRAME;
	end;
	delete_text(ALL_TEXT);
	unload_fnt(fontid1);
	unload_fnt(fontid2);
End;
